home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / PROFILER / PRIM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-16  |  660 b   |  35 lines
  1. PROGRAM prim2;
  2.  
  3. CONST n = 1000;
  4. VAR   i,k  : integer;  
  5.       prim : boolean;  
  6. BEGIN
  7.   write(2:4);
  8.   i:=1;
  9.   REPEAT 
  10.     i:=i+2;
  11.     prim := true;
  12.     k:=1;
  13.     REPEAT
  14.      k:=k+2;
  15.      IF i MOD k = 0
  16.        THEN prim := false;
  17.     UNTIL (NOT prim) OR (k>=trunc(sqrt(i)));
  18.     IF prim THEN write (i:4) 
  19.   UNTIL i>=n;
  20. END.
  21.  
  22. { Problemstellung :
  23.  
  24.   Alle Primzahlen von 1 bis 997 sollen ausgegeben werden.
  25.   Dieses Programm ist durch Profilierung optimiert bis zum gehtfastnichtmehr.
  26.   
  27.   Beispiel :
  28.   
  29.   Überprüfen Sie die ausgegebenen Werte auf Primzahlen.
  30.   
  31.   Besonderheiten :
  32.   
  33.   Schleifenverhalten, Variablenbereiche 
  34. }